﻿<%
dim mynid
mynid=qingtian.nid
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "select * FROM kywap where ids="&mynid
	Rs.Open Sql,liao,1,1
	if not (rs.bof and rs.eof) then
response.redirect "ljzq.asp?pid="&rs("pid")&"&cc="&cc&"&ve="&ve&""
	end if
	Rs.close
	Sql = "select * FROM pk where ids="&mynid
	Rs.Open Sql,liao,1,1
	if not (rs.bof and rs.eof) then
response.redirect "pk.asp?pid="&rs("pid")&"&cc="&cc&"&ve="&ve&""
	end if
	Rs.close
	Sql = "select * FROM luo where ids="&mynid
	Rs.Open Sql,liao,1,1
	if not (rs.bof and rs.eof) then
response.redirect "xluo.asp?pid="&rs("pid")&"&cc="&cc&"&ve="&ve&""
	end if
	Rs.close
	Sql = "select ids FROM zb where ids="&mynid
	Rs.Open Sql,liao,1,3
	if rs.bof and rs.eof then
	rs.addnew
        rs("ids")=mynid
	rs.update
	end if
	Rs.close
	Sql = "select ids FROM sx where ids="&mynid
	Rs.Open Sql,liao,1,3
	if rs.bof and rs.eof then
	rs.addnew
        rs("ids")=mynid
	rs.update
	end if
	Rs.close
	set rs=nothing
%>